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MODULE util$report_io_err( 
LANGUAGE (BL1SS32 
ADDRESSING MODE (F fERNAL=GENERAL ,NONEXTERNAL=GENERAL) 
IDENT = 'VO4=000 


BEGIN 
TITLE ‘Report 1/0 error on FAB or RAB’; 


PITIIIIIISIIIIIIIITITITITITI ITT TI TIT TTiTi Tilt iiTiTiiiti TT ii iii iiTi iii iii 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


i THIS SOFTWARE ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ae - AND ae THE 


® 
® 
® 
® 
® 
® 
® 
i T vE C TW : 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
iv TRANSFERRED. * 
4 ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 

® 

oa 

*® 

® 

* 

® 


i® DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PTTTTITITILILILILI LLL LLL LLL tiiiliitiiiiiiiiiiiie 
i++ 

FACILITY: Run time Library 

i ABSTRACT: 

Signal an 1/0 error on either the FAB or the RAB 

i ENVIRONMENT : 


VAX native, user mode. 


AUTHOR: Benn Schreiber 
CREATION DATE: 7-Feb-1983 
i MODIFIED BY: 


<- 


VOLH008 =! Deetarations ©” °” PAB oF RAB 1E$e0e19ge 0:08:09 VMSLIB-SRESREPORTIOE B82; 1 eat 


: 5 : ! ZSBTTL ‘Declarations’; 

3 : § 1 LIBRARY 

3 8 : "SYSSLIBRARY:STARLET'; 
; & § 1 ! Define UTILS psects 

; 61 rs 1! 

3 6 1 1 PSECT 

3 6 bO¢ 1 CODE = _UTILSCODE 

: 64 063 1 GLOBAL = _UTILSDATA, 

: 65 0064 1 OWN = _UTILSDATA 

> 66 0065 1 PLIT ="_UTILSCODE; 
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error on FAB or RAB -Sep-19 8: AX-11 Bliss-32 V 
lename - Get descriptor of file spec 16-ep-1984 96: 8 93 VMSLIB.SR ROIR REPORT 


/0 

fi 

1 ZSBTTL ‘util$getfilename - Get aa of file spec from FAB'; 
BEGIN. ROUTINE util$getfilename (fab) = 


0-74 
Tide B82:1 (3) 


i FUNCTIONAL DESCRIPTION: 

This routine returns a string descriptor for a file. 
Inputs: 

fab Address of the fab 
Outputs: 

Routine value is address of string descriptor for file name 


Om mre mee me me me mee me ee meme me =) 


P 
fab : REF S$BBLOCK; 
LOCAL 
nam : REF $BBLOCK; 
* ‘Stiodees : SBBLOCKCdsc$c_s_blnj; 
nam = .fablfab$l_namj; 


IF (.nam EQL 

OR (IF \TiLetacr Cdsc$w_length) = .nam Cnam$b_rsl]) NEQ 0 

THEN filedesc Cdsc$a_p ointer] = -nam Cnam$l_rsal 
LS i (filedese dicéu length] = .nam Cnamisb sot} NEQ 0 
N filedesc decSa, pointer] = .nam Cnam$T_esaJ; 
-{iledesctdscsu length Lo 

THEN BEGIN 

filedesc pgscéu. length]_= .fab Cfab$b_fns]; !Use filename string 

iene dsc$a_pointer] = .fab Cfab$T_ fnai;' if all else fails 


ee filedesc 
Of util$getfilename 
-TITLE UTILSREPORT_IO_ERR Ropert 1/0 error on FAB or R 
-IDENT \V04-000\ 
-PSECT _UTILSDATA,NOEXE,2 


00000 FILEDESC: 


~PSECT _UTILSCODE ,NOWRT,2 
0004 00000 ~-ENTRY UTILSGETFILENAME, Save R2 


N 1 
Voegog rT ~10- ue PScert Lenene Scot deceriacer of file spec ~3e0-1 984 96: $f: % VASLIB SREIR Ebokt ioe bS2:1 


000000 0° 00 9 2 MOVAB Hee RS: R2 
at D MOVL 
8 A p MOVL gOCA1), NAM 
1 1 BEQL 
62 03 AO 9 1 MOVZBW 3(NAM), FILEDESC 
07 1 1 BEQL 1$ 
04 A2 04 AO D 19 MOVL 4 (NAM), FILEDESC+4 
08 11 If BRB 3s 
62 0B OA 8 1$: MOVZBW 11(NAM), FILEDESC 
05 1 4 BEQL < 
04 A2 0c Ad DO 00026 MOVL 2(NAM), FILEDESC+4 
6 B 0 B 2S: TSTW  FILEDESC 
1 D BNEQ 4$ 
62 34 Al 9B OO0F 3$: MOVZBW 52(R1), FILEDESC 
04 Ae 2c =Al «DO 00033 MOVL  44(R1), FILEDESC+4 
50 62 9E 00038 4$: MOVAB FILEDESC, RO 
04 00038 RET 
; Routine Size: 60 bytes, Routine Base: _UTILSCODE + 0000 
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15 
t 1/0 error on FAB or RAB 18- “Se ahs 9 06:98:09 AX-11 BLi 138; -32 V tite ae 
report_io_error = Report 1/0 error on FAB 14-Sep-1984 254: VMSLIB™ SRC REPORT I0E.852;1 
1 ZSBTITL ‘util$report_io_error - Report 9 error on FAB or RAB’; 
rab) = 


GLOBAL ROUTINE util$feport_io_error ( 
fees" 


FUNCTIONAL DESCRIPTION: 
This routine signals an 1/0 error. 
Inputs: 


frab The FAB or the RAB which got the error 
Hd ove CTX hes of the FAB/RAB must contain the 


i 
! 
i 
i 
i 
! 
code 

' *(SHRS Cee ia/SPeRoUT /READERA/WRITEERR/CLOSEIN/CLOSEOUT) 
If frab is a RAB, then RABSL_FAB must point to the FA 

i In either case, the FAB must “point to a valid NAM block 
i with both the expanded and resultant name strings in 
order for consistent error reporting 

Outputs: 

The error is signalled. RMS$_EOF is not signalled 
Routine value: 

i 

i 

i 


The SL_STS field of frab is returned 


leak : REF S$BBLOCK; 
IF .frabCrab$l_sts] NEQ rms$_eof 
THEN SIGNAC(.frabCfab3l_ctx],1 

Sn Ie .frablfab$b_bid) EQL fab$c_bid 


.frab 
“frabCrab$l fab])), 
.frabCfab$l sts) ctrabefebsie stv]); 


Ae -frabCfab$l_stsJ 


0004 00000 .ENTRY UTILSREPORT_IO_ERROR, Save R2 
52 04 ac 00 9002 MOVL RAB, R 
0001827A = BF 08 A2 01 00006 CMPL BcR2S, #98938 
22 13 000g BEQL a 
7 08 A2 7d 0001 MOV &(R2), -(SP) 
0 62 91 00014 CMPB Ss (R2), #3 
4 12 00017 BNEQ 1$ 
pp 19 PUSHL Re 
1 18 BRB é 
3c = A2sOéD 1D 1$ PUSHL  60(R2 
AO AF 01 FB 00020 2$ CALLS #1, UTILSGETFILENAME 


——_—_————————_——_j 


15 
UTILSREPORT_10_ Report 1/0 error on FAB or RAB 1$- -Sep-1984 8: AX-11 Bliss-32 V4.0-74 Page 6 L 
VOLtOOD util$report_io_error = Report I/0 error on FAB 14-Sep ars ri 96: ¢ 99 VMSLIB. ROIR EPonTiOg 642; 1 (4) ve 
© pd 00024 PUSHL RO ; | : 
1 OD g PUSHL #) ; 0140 ; 
18 A2 DD 000 PUSHL  24(R2) ; ; 
000000006 00 05 FB 000 CALLS #5, LIBSSIGNAL ; ; 
50 08 A2 00 00032 3S: MOVL  8(R2), RO > 0146 ; 
04 00035 RET 3 0147 : 
; Routine Size: 55 bytes, Routine Base: _UTILSCODE + 003C ; 
; 151 0148 0 END ELUDOM : 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY ; 
: Name Bytes Attributes : 
:  _UTILSDATA 8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 LUTILSCODE 115 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; Library Statistics : 
‘Ep area: ein eee era Ce SyGUG|§ swonanee Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 19 0 581 00:01.0 ; 
; COMMAND QUALIFIERS : 
: RL ISS/CHECK SCE TELD. INETIAL .OPTINIZE) HOTRACE/L ISL 158: REPORT IOE /CBJ=0BI$ REPORT 108 MSRC$:REPORTIOE/UPDATE=(ENH$:REPORTIOE ; 
Size: 115 code + 8 data bytes 
Run Time 00:04. 
Elapsed” Tine? 00: £05. 
Lines/CPU Min 119 


Lexemes/CPU-Min: 13890 
me Used: 47 pages 
Compilation Complete 
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